- 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/icerdgrft.F90
r8409 r8411 19 19 USE ice ! LIM variables 20 20 USE limvar ! LIM 21 USE limcons ! conservation tests22 USE limctl ! control prints21 USE icecons ! conservation tests 22 USE icectl ! control prints 23 23 ! 24 24 USE lbclnk ! lateral boundary condition - MPP exchanges … … 122 122 123 123 ! conservation test 124 IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)124 IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 125 125 126 126 !-----------------------------------------------------------------------------! … … 281 281 !-----------------------------------------------------------------------------! 282 282 ! conservation test 283 IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)283 IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 284 284 285 285 ! control prints 286 IF( ln_ctl ) CALL lim_prt3D( 'icerdgrft' )286 IF( ln_ctl ) CALL ice_prt3D( 'icerdgrft' ) 287 287 ! 288 288 IF( nn_timing == 1 ) CALL timing_stop('icerdgrft')
Note: See TracChangeset
for help on using the changeset viewer.