/[MITgcm]/MITgcm/model/src/ini_theta.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_theta.F

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

revision 1.3 by cnh, Tue Jun 9 18:57:38 1998 UTC revision 1.4 by cnh, Wed Jun 10 01:44:03 1998 UTC
# Line 85  C--    Initialise temperature field to t Line 85  C--    Initialise temperature field to t
85         ENDDO         ENDDO
86        ELSE        ELSE
87         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
88         CALL READ_FLD_XYZ_RS( hydrogThetaFile, ' ', theta, 0, myThid )         CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid )
89         _END_MASTER(myThid)         _END_MASTER(myThid)
90        ENDIF        ENDIF
91  C     Set initial tendency terms  C     Set initial tendency terms
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22