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 8484 – NEMO

Changeset 8484


Ignore:
Timestamp:
2017-09-01T12:17:24+02:00 (7 years ago)
Author:
jamrae
Message:

Added write statements for debugging.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r8478 r8484  
    187187      CALL CICE_Initialize 
    188188 
     189      IF(lwp) THEN                        ! control print 
     190        WRITE(numout,*) 
     191        WRITE(numout,*)'=============================================================' 
     192        WRITE(numout,*)'In cice_sbc_init, after call to CICE_Initialize' 
     193        WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm) 
     194        WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm) 
     195        WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm) 
     196        WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm) 
     197        WRITE(numout,*)'=============================================================' 
     198        WRITE(numout,*) 
     199      ENDIF 
     200 
    189201      ! Do some CICE consistency checks 
    190202      IF ( (ksbc == jp_flx) .OR. (ksbc == jp_purecpl) ) THEN 
    … …  
    259271      ENDIF 
    260272 
     273      IF(lwp) THEN                        ! control print 
     274        WRITE(numout,*) 
     275        WRITE(numout,*)'=============================================================' 
     276        WRITE(numout,*)'In cice_sbc_init, before call to cice2nemo for z0atm/fmdice' 
     277        WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm) 
     278        WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm) 
     279        WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm) 
     280        WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm) 
     281        WRITE(numout,*)'=============================================================' 
     282        WRITE(numout,*) 
     283      ENDIF 
     284 
    261285      CALL cice2nemo(z0atm,fmdice,'T', 1. ) 
     286 
     287      IF(lwp) THEN                        ! control print 
     288        WRITE(numout,*) 
     289        WRITE(numout,*)'=============================================================' 
     290        WRITE(numout,*)'In cice_sbc_init, after call to cice2nemo for z0atm/fmdice' 
     291        WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm) 
     292        WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm) 
     293        WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm) 
     294        WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm) 
     295        WRITE(numout,*)'MAXVAL(fmdice): ', MAXVAL(fmdice) 
     296        WRITE(numout,*)'MAXLOC(fmdice): ', MAXLOC(fmdice) 
     297        WRITE(numout,*)'MINVAL(fmdice): ', MINVAL(fmdice) 
     298        WRITE(numout,*)'MINLOC(fmdice): ', MINLOC(fmdice) 
     299        WRITE(numout,*)'============================================================='  
     300        WRITE(numout,*) 
     301      ENDIF 
    262302 
    263303      IF( .NOT. ln_rstart ) THEN 
Note: See TracChangeset for help on using the changeset viewer.