- Timestamp:
- 2019-07-29T18:10:24+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/OCE/nemogcm.F90
r11355 r11367 75 75 USE sbc_oce , ONLY : lk_oasis 76 76 USE wet_dry ! Wetting and drying setting (wad_init routine) 77 USE ice 77 78 #if defined key_top 78 79 USE trcini ! passive tracer initialisation … … 167 168 istp = nit000 168 169 169 IF(narea == 419) THEN 170 WRITE(9419,*) 'max sshn nemogcm before any steps = ',MAXVAL( ABS( sshn(:,:) ) ) 171 WRITE(9419,*) 'max ssha = ',MAXVAL( ABS( ssha(:,:) ) ) 172 WRITE(9419,*) 'max emp_b = ',MAXVAL( ABS( emp_b(:,:) ) ) 173 WRITE(9419,*) 'max emp = ',MAXVAL( ABS( emp(:,:) ) ) 170 IF(narea == 68) THEN 171 WRITE(968,*) 'in step before any steps: u_ice = ',SUM(u_ice) 172 WRITE(968,*) 'v_ice(54,0:2) = ',SUM(v_ice) 173 WRITE(968,*) 'h_i(54,0:2) = ',SUM(h_i) 174 WRITE(968,*) 'h_s(54,0:2) = ',SUM(h_s) 175 WRITE(968,*) 'v_i(54,0:2) = ',SUM(v_i) 176 WRITE(968,*) 'sv_i(54,0:2) = ',SUM(sv_i) 177 WRITE(968,*) 'e_s(54,0:2) = ',SUM(e_s) 178 WRITE(968,*) 'e_i(54,0:2) = ',SUM(e_i) 174 179 ENDIF 175 180
Note: See TracChangeset
for help on using the changeset viewer.