Changeset 13899 for NEMO/branches/2020/tickets_icb_1900/src/ICE/icedia.F90
- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/ICE/icedia.F90
r12489 r13899 230 230 CALL iom_get( numrir, 'frc_tembot' , frc_tembot ) 231 231 CALL iom_get( numrir, 'frc_sal' , frc_sal ) 232 CALL iom_get( numrir, jpdom_auto glo, 'vol_loc_ini', vol_loc_ini )233 CALL iom_get( numrir, jpdom_auto glo, 'tem_loc_ini', tem_loc_ini )234 CALL iom_get( numrir, jpdom_auto glo, 'sal_loc_ini', sal_loc_ini )232 CALL iom_get( numrir, jpdom_auto, 'vol_loc_ini', vol_loc_ini ) 233 CALL iom_get( numrir, jpdom_auto, 'tem_loc_ini', tem_loc_ini ) 234 CALL iom_get( numrir, jpdom_auto, 'sal_loc_ini', sal_loc_ini ) 235 235 ELSE 236 236 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.