- Timestamp:
- 2020-02-27T12:27:50+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/ICE/icedyn_rhg.F90
r11081 r12475 63 63 ! controls 64 64 IF( ln_timing ) CALL timing_start('icedyn_rhg') ! timing 65 write(numout,*)'ice_dyn_rhg 1: u_ice = ',u_ice(3,4) 65 66 IF( ln_icediachk ) CALL ice_cons_hsm(0, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 66 67 ! … … 77 78 END DO 78 79 ENDIF 80 write(numout,*)'ice_dyn_rhg 2: u_ice = ',u_ice(3,4) 79 81 ! 80 82 !--------------! … … 86 88 ! !------------------------! 87 89 CALL ice_dyn_rhg_evp( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i ) 90 write(numout,*)'ice_dyn_rhg 3: u_ice = ',u_ice(3,4) 88 91 ! 89 92 END SELECT … … 91 94 IF( lrst_ice ) THEN !* write EVP fields in the restart file 92 95 IF( ln_rhg_EVP ) CALL rhg_evp_rst( 'WRITE', kt ) 96 write(numout,*)'ice_dyn_rhg 4: u_ice = ',u_ice(3,4) 93 97 ENDIF 94 98 ! 95 99 ! controls 96 100 IF( ln_icediachk ) CALL ice_cons_hsm(1, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 101 write(numout,*)'ice_dyn_rhg 5: u_ice = ',u_ice(3,4) 97 102 IF( ln_ctl ) CALL ice_prt3D ('icedyn_rhg') ! prints 98 IF( ln_timing ) CALL timing_stop ('icedyn_rhg') ! timing 103 write(numout,*)'ice_dyn_rhg 6: u_ice = ',u_ice(3,4) 104 IF( ln_timing ) CALL timing_stop ('icedyn_rhg') 105 write(numout,*)'ice_dyn_rhg 7: u_ice = ',u_ice(3,4) ! timing 99 106 ! 100 107 END SUBROUTINE ice_dyn_rhg
Note: See TracChangeset
for help on using the changeset viewer.