- Timestamp:
- 2017-08-07T18:09:12+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r8379 r8411 36 36 USE limtab ! 1D <==> 2D transformation 37 37 USE limvar ! 38 USE limcons ! conservation tests39 USE limctl ! control print38 USE icecons ! conservation tests 39 USE icectl ! control print 40 40 ! 41 41 USE in_out_manager ! I/O manager … … 99 99 100 100 ! conservation test 101 IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)101 IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 102 102 103 103 CALL lim_var_glo2eqv … … 257 257 oa_i(:,:,:) = o_i(:,:,:) * a_i(:,:,:) 258 258 259 IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)259 IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 260 260 ! 261 261 CALL lim_var_zapsmall ! --- remove very small ice concentration (<1e-10) --- ! … … 266 266 IF( ln_limdO ) CALL lim_thd_lac ! --- frazil ice growing in leads --- ! 267 267 ! 268 IF( ln_limctl ) CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ' ) ! control print269 IF( ln_ctl ) CALL lim_prt3D( 'limthd' ) ! Control print268 IF( ln_limctl ) CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ' ) ! control print 269 IF( ln_ctl ) CALL ice_prt3D( 'limthd' ) ! Control print 270 270 ! 271 271 IF( nn_timing == 1 ) CALL timing_stop('limthd')
Note: See TracChangeset
for help on using the changeset viewer.