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

[bixq]

Hello,

Where you get your package ? I guess your package is a personal version,
ask the guy who give you this package.

Regards,
Xunqiang Bi

On Mon, 15 Mar 2010, áÎÔÏÎ òÅÚÎÉËÏ× wrote:

>
> --- 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.
> _______________________________________________
> RegCNET mailing list
> RegCNET at lists.ictp.it
> https://lists.ictp.it/mailman/listinfo/regcnet
>

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   Dr. Xunqiang Bi         email:bixq at ictp.it
   Earth System Physics Group
   The Abdus Salam ICTP
   Strada Costiera, 11
   P.O. BOX 586, 34100 Trieste, ITALY
   Tel: +39-040-2240302  Fax: +39-040-2240449
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~