/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_init.F

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

revision 1.55 by gforget, Fri Sep 19 20:38:39 2014 UTC revision 1.56 by gforget, Mon Sep 22 13:59:10 2014 UTC
# Line 802  c-- Line 802  c--
802         do iarr = 1, maxCtrlTim2D         do iarr = 1, maxCtrlTim2D
803    
804          if (xx_gentim2d_weight(iarr).NE.' ')          if (xx_gentim2d_weight(iarr).NE.' ')
805       &   call mdsreadfield( xx_gentim2d_weight, ctrlprec, 'RL',       &   call mdsreadfield( xx_gentim2d_weight(iarr), ctrlprec, 'RL',
806       &      1, wgentim2d(1-Olx,1-Oly,1,1,iarr), 1, myThid )       &      1, wgentim2d(1-Olx,1-Oly,1,1,iarr), 1, myThid )
807    
808          call ctrl_init_rec ( xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM),          call ctrl_init_rec ( xx_gentim2d_file(iarr)(1:MAX_LEN_FNAM),
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22