/[MITgcm]/MITgcm/pkg/aim_v23/aim_initialise.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_initialise.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Fri Jan 3 03:51:27 2003 UTC revision 1.4 by jmc, Wed Feb 26 03:10:50 2003 UTC
# Line 88  C     initialize common block RADFIX (or Line 88  C     initialize common block RADFIX (or
88    
89  C--   Set truncSurfP : used to correct for truncation (because of hFacMin)  C--   Set truncSurfP : used to correct for truncation (because of hFacMin)
90  C      of surface reference pressure Ro_surf that affects Surf.Temp.  C      of surface reference pressure Ro_surf that affects Surf.Temp.
91        CALL INI_P_GROUND(selectFindRoSurf, topoZ, truncSurfP, myThid )        CALL INI_P_GROUND(1, topoZ, truncSurfP, myThid )
92        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
93         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
94          DO j=1,sNy          DO j=1,sNy
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22