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 8670 for branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 – NEMO

Ignore:
Timestamp:
2017-11-02T16:02:02+01:00 (6 years ago)
Author:
jamrae
Message:

Added capability to weight sea ice roughness length before coupling.

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

    r8484 r8670  
    271271      ENDIF 
    272272 
    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  
    285273      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 
    302274 
    303275      IF( .NOT. ln_rstart ) THEN 
Note: See TracChangeset for help on using the changeset viewer.