/[MITgcm]/MITgcm_contrib/gael/pkg/smooth/smooth_init_varia.F
ViewVC logotype

Diff of /MITgcm_contrib/gael/pkg/smooth/smooth_init_varia.F

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

revision 1.1 by gforget, Tue Jun 19 18:23:18 2007 UTC revision 1.2 by gforget, Fri Oct 16 03:36:34 2009 UTC
# Line 159  cgf ... nothing in adjoint because ini_f Line 159  cgf ... nothing in adjoint because ini_f
159       &     xx_theta_file(1:il), '.bckgd'       &     xx_theta_file(1:il), '.bckgd'
160        call mdsreadfield(fnamegeneric,32,'RL',nr,        call mdsreadfield(fnamegeneric,32,'RL',nr,
161       & theta, 1, mythid)       & theta, 1, mythid)
162        _EXCH_XYZ_R8( theta, mythid )        _EXCH_XYZ_RL( theta, mythid )
163        il=ilnblnk( xx_salt_file )        il=ilnblnk( xx_salt_file )
164        write(fnamegeneric(1:80),'(2a)')        write(fnamegeneric(1:80),'(2a)')
165       &     xx_salt_file(1:il), '.bckgd'       &     xx_salt_file(1:il), '.bckgd'
166        call mdsreadfield(fnamegeneric,32,'RL',nr,        call mdsreadfield(fnamegeneric,32,'RL',nr,
167       & salt, 1, mythid)       & salt, 1, mythid)
168        _EXCH_XYZ_R8( salt, mythid )        _EXCH_XYZ_RL( salt, mythid )
169  #endif  #endif
170    
171          END          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22