Changeset 5989 for branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90
- Timestamp:
- 2015-12-03T09:10:32+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90
r5260 r5989 178 178 IF( ln_limdiahsb ) CALL lim_cons_hsm(1, 'limupdate2', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 179 179 180 ! for outputs180 ! necessary calls (at least for coupling) 181 181 CALL lim_var_glo2eqv 182 182 CALL lim_var_agg(2) … … 191 191 CALL prt_ctl_info(' - Cell values : ') 192 192 CALL prt_ctl_info(' ~~~~~~~~~~~~~ ') 193 CALL prt_ctl(tab2d_1=e1 2t, clinfo1=' lim_update2 : cell area :')193 CALL prt_ctl(tab2d_1=e1e2t , clinfo1=' lim_update2 : cell area :') 194 194 CALL prt_ctl(tab2d_1=at_i , clinfo1=' lim_update2 : at_i :') 195 195 CALL prt_ctl(tab2d_1=vt_i , clinfo1=' lim_update2 : vt_i :')
Note: See TracChangeset
for help on using the changeset viewer.