/[MITgcm]/MITgcm/pkg/my82/my82_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/my82/my82_do_diags.F

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

revision 1.5 by mlosch, Mon Apr 14 10:09:34 2008 UTC revision 1.6 by mlosch, Mon Apr 14 10:12:40 2008 UTC
# Line 129  C         transfer analyse a particular Line 129  C         transfer analyse a particular
129       &       'MYviscAr', MYviscAr, myThid)       &       'MYviscAr', MYviscAr, myThid)
130          CALL MNC_CW_RL_W(pf,'my_state',0,0,          CALL MNC_CW_RL_W(pf,'my_state',0,0,
131       &       'MYdiffKr', MYdiffKr, myThid)       &       'MYdiffKr', MYdiffKr, myThid)
         print *, 'ml-hbl 1'  
132          CALL MNC_CW_RL_W(pf,'my_state',0,0,          CALL MNC_CW_RL_W(pf,'my_state',0,0,
133       &       'MYhbl', MYhbl, myThid)       &       'MYhbl', MYhbl, myThid)
         print *, 'ml-hbl 2'  
134         ENDIF         ENDIF
135  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
136    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22