/[MITgcm]/MITgcm/pkg/aim/phy_shtorh.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/phy_shtorh.F

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

revision 1.2 by adcroft, Fri Feb 2 21:36:29 2001 UTC revision 1.3 by cnh, Tue May 29 19:28:53 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4        SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT)        SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid)
5  C--  C--
6  C--   SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT)  C--   SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT)
7  C--  C--
# Line 22  C-- Line 22  C--
22    
23    
24        IMPLICIT rEAL*8 (A-H,O-Z)        IMPLICIT rEAL*8 (A-H,O-Z)
25          INTEGER  myThid
26    
27    
28  CcnhDebugStarts  CcnhDebugStarts

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22