/[MITgcm]/MITgcm/verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F
ViewVC logotype

Diff of /MITgcm/verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F

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

revision 1.2 by gforget, Wed Mar 27 00:11:02 2013 UTC revision 1.3 by heimbach, Fri Jun 21 16:24:39 2013 UTC
# Line 55  C     == Local variables == Line 55  C     == Local variables ==
55        logical equal        logical equal
56        logical doglobalread        logical doglobalread
57        logical ladinit        logical ladinit
58          character*(MAX_LEN_FNAM) fnamebase
59        character*( 80)   fnamegeneric        character*( 80)   fnamegeneric
60    
61        _RL fac        _RL fac
# Line 89  C--   generic - user-defined control var Line 90  C--   generic - user-defined control var
90          ENDDO          ENDDO
91         ENDDO         ENDDO
92  C  C
93           fnamebase = xx_gentim2d_file(iarr)
94         CALL CTRL_GET_GEN (         CALL CTRL_GET_GEN (
95       I      xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM),       I      fnamebase(1:MAX_LEN_FNAM),
96       I      xx_gentim2d_startdate(1,iarr),       I      xx_gentim2d_startdate(1,iarr),
97       I      xx_gentim2d_period(iarr),       I      xx_gentim2d_period(iarr),
98       I      maskC,       I      maskC,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22