- 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/icerhg.F90
r8409 r8411 19 19 USE ice ! LIM-3 variables 20 20 USE icerhg_evp ! EVP rheology 21 USE limcons ! conservation tests22 USE limctl ! control prints21 USE icecons ! conservation tests 22 USE icectl ! control prints 23 23 USE limvar 24 24 ! … … 65 65 ! 66 66 ! conservation test 67 IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)67 IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 68 68 69 69 ! Landfast ice parameterization: define max bottom friction … … 92 92 ! 93 93 ! conservation test 94 IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)94 IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 95 95 96 96 ! Control prints 97 IF( ln_ctl ) CALL lim_prt3D( 'icerhg' )97 IF( ln_ctl ) CALL ice_prt3D( 'icerhg' ) 98 98 ! 99 99 IF( nn_timing == 1 ) CALL timing_stop('icerhg')
Note: See TracChangeset
for help on using the changeset viewer.