Changeset 11616 for NEMO

Timestamp:

2019-09-30T15:23:40+02:00 (5 years ago)

Author:

laurent

Message:

LB: new cool-skin and warm-layer parameterizations for ECMWF and COARE3.6, COARE3.0 uses same CSWL param as for COARE3.6.

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_coare3p6.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_coare3p6.F90

@@ -30 +30 @@
    USE lib_fortran     ! to use key_nosignedzero
 
-   USE io_ezcdf ! LOLO!
-
    IMPLICIT NONE
    PRIVATE
@@ -211 +209 @@
             isd_sol = MODULO( isd + ilag_gw_s , 24*3600 )
             rhr_sol = REAL( isd_sol , wp) / 3600._wp
-            !LOLO!:
-            !pdT(ji,jj) = REAL( isd_sol , wp) / 3600._wp !LOLO!
-            !END DO
-            !END DO
-            !CALL DUMP_FIELD(REAL( pdT , 4), 'isd_sol.nc', 'solar_hour' )
-            !STOP'LOLO!'
-            !DO jj = 1, jpj
-            !   DO ji = 1, jpi
-            !LOLO.
-
-            !PRINT *, ' Lag in hours / Greenwich for local solar time =', rlag_gw_h
-            !PRINT *, '     UTC     time in seconds:', isd
-            !PRINT *, ' Local solar time in seconds:', isd_sol
-            !PRINT *, '     UTC     time in hours:',   REAL(isd    ,wp)/3600._wp
-            !PRINT *, '  [WL_COARE3P6] Local solar time in hours:',   REAL(isd_sol,wp)/3600._wp
 
             !*****  variables for warm layer  ***
@@ -311 +294 @@
          END DO
       END DO
-
-      !WRITE(cf_tmp,'("Qnt_ac_",i5.5,".nc")') kt
-      !CALL DUMP_FIELD(REAL( Qnt_ac , 4), TRIM(cf_tmp), 'Qnt_ac')
-      
       
    END SUBROUTINE WL_COARE3P6