New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11367 for NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/OCE/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2019-07-29T18:10:24+02:00 (5 years ago)
Author:
dancopsey
Message:

More print statements including fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/OCE/nemogcm.F90

    r11355 r11367  
    7575   USE sbc_oce , ONLY : lk_oasis 
    7676   USE wet_dry        ! Wetting and drying setting   (wad_init routine) 
     77   USE ice 
    7778#if defined key_top 
    7879   USE trcini         ! passive tracer initialisation 
     
    167168      istp = nit000 
    168169 
    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) 
    174179      ENDIF 
    175180 
Note: See TracChangeset for help on using the changeset viewer.