[RegCNET] Useful patch for users, who using domain without sea.

[Антон Резников]

--- PreProc/Terrain/terrain.f   (revision 2)
+++ PreProc/Terrain/terrain.f   (working copy)
@@ -1037,6 +1037,8 @@
          write(23,'(a)') "      parameter(SSTTYP='EH5RF')"
       else if(SSTTYP.EQ.'EH5A2') then
          write(23,'(a)') "      parameter(SSTTYP='EH5A2')"
+      else if(SSTTYP.EQ.'FAKE') then
+         write(23,'(a)') "      parameter(SSTTYP='FAKE')"
       else
          print*,'SST DATASET DOES NOT EXIST'
          stop 'subroutine foricbc'

Index: PreProc/ICBC/SST_1DEG.f
===================================================================
--- PreProc/ICBC/SST_1DEG.f     (revision 2)
+++ PreProc/ICBC/SST_1DEG.f     (working copy)
@@ -79,6 +79,8 @@
      &             , ' under ../DATA/SST/'
          endif
          CALL HEADWK
+      ELSE IF(SSTTYP.EQ.'FAKE') THEN
+         WRITE(*,*) 'Do nothing'
       ELSE
          WRITE(*,*) 'PLEASE SET SSTTYP in domain.param'
          STOP

This patch add SSTTYP 'FAKE'. No SST data needed for running model with this type.