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

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

http://users.ictp.it/~pubregcm/RegCM3/ - This is no official version?


Mon, 15 Mar 2010 09:18:29 +0100 (CET) письмо от bixq <bixq at ictp.it>:

> 
> 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
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>