- 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/iceadv.F90
r8409 r8411 29 29 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 30 30 USE timing ! Timing 31 USE limcons ! conservation tests32 USE limctl ! control prints31 USE icecons ! conservation tests 32 USE icectl ! control prints 33 33 34 34 IMPLICIT NONE … … 103 103 104 104 ! conservation test 105 IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)105 IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 106 106 107 107 ! store old values for diag … … 513 513 514 514 ! conservation test 515 IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)515 IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 516 516 517 517 ! ------------------------------------------------- 518 518 ! control prints 519 519 ! ------------------------------------------------- 520 IF( ln_limctl ) CALL lim_prt( kt, iiceprt, jiceprt,-1, ' - ice dyn & trp - ' )520 IF( ln_limctl ) CALL ice_prt( kt, iiceprt, jiceprt,-1, ' - ice dyn & trp - ' ) 521 521 ! 522 522 IF( nn_timing == 1 ) CALL timing_stop('iceadv')
Note: See TracChangeset
for help on using the changeset viewer.