Changeset 8848 for branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

Timestamp:

2017-11-29T17:01:42+01:00 (6 years ago)

Author:

jamrae

Message:

Renamed variable fmdice as rough_ice_fmd. Deleted some temporary write statements.

File:

• branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (3 diffs)

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

@@ -259 +259 @@
       ENDIF
 
-      CALL cice2nemo(z0atm,fmdice,'T', 1. )
+      CALL cice2nemo(z0atm,rough_ice_fmd,'T', 1. )
       CALL cice2nemo(z0atmskin,rough_ice_skin,'T', 1. )
 
@@ -312 +312 @@
       IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_init')
       !
-
-
-      IF(lwp) THEN                        ! control print
-        WRITE(numout,*)
-        WRITE(numout,*)'============================================================='
-        WRITE(numout,*)'At end of subroutine cice_sbc_init'
-        WRITE(numout,*)'MAXVAL(z0atm): ', MAXVAL(z0atm)
-        WRITE(numout,*)'MAXLOC(z0atm): ', MAXLOC(z0atm)
-        WRITE(numout,*)'MINVAL(z0atm): ', MINVAL(z0atm)
-        WRITE(numout,*)'MINLOC(z0atm): ', MINLOC(z0atm)
-        WRITE(numout,*)'MAXVAL(z0atmskin): ', MAXVAL(z0atmskin)
-        WRITE(numout,*)'MAXLOC(z0atmskin): ', MAXLOC(z0atmskin)
-        WRITE(numout,*)'MINVAL(z0atmskin): ', MINVAL(z0atmskin)
-        WRITE(numout,*)'MINLOC(z0atmskin): ', MINLOC(z0atmskin)
-        WRITE(numout,*)'============================================================='
-        WRITE(numout,*)
-      ENDIF
-
-
-
    END SUBROUTINE cice_sbc_init
 
@@ -810 +790 @@
 
 ! Surface roughness length for form drag
-      CALL cice2nemo(z0atm,fmdice,'T', 1. )
+      CALL cice2nemo(z0atm,rough_ice_fmd,'T', 1. )
 
 ! Surface skin roughness length