/[MITgcm]/MITgcm/pkg/shap_filt/shap_filt_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/shap_filt/shap_filt_readparms.F

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

revision 1.3 by jmc, Fri Jun 15 15:14:56 2001 UTC revision 1.4 by adcroft, Fri Aug 17 19:09:23 2001 UTC
# Line 68  C--   Read parameters from open data fil Line 68  C--   Read parameters from open data fil
68        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
69       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
70    
71        write(0,*) 'Shap_funct, nShap_Tr,UV _Phys=',        write(*,*) 'Shap_funct, nShap_Tr,UV _Phys=',
72       &    Shap_funct, nShapT, nShapUV, nShapTrPhys, nShapUVPhys       &    Shap_funct, nShapT, nShapUV, nShapTrPhys, nShapUVPhys
73        write(0,*) 'Shap_Trtau,Shap_uvtau=',Shap_Trtau,Shap_uvtau        write(*,*) 'Shap_Trtau,Shap_uvtau=',Shap_Trtau,Shap_uvtau
74  C--   Close the open data file  C--   Close the open data file
75        CLOSE(iUnit)        CLOSE(iUnit)
76        _END_MASTER(myThid)        _END_MASTER(myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22