Changeset 11616


Ignore:
Timestamp:
2019-09-30T15:23:40+02:00 (13 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_coare3p6.F90

    r11615 r11616  
    3030   USE lib_fortran     ! to use key_nosignedzero 
    3131 
    32    USE io_ezcdf ! LOLO! 
    33  
    3432   IMPLICIT NONE 
    3533   PRIVATE 
     
    211209            isd_sol = MODULO( isd + ilag_gw_s , 24*3600 ) 
    212210            rhr_sol = REAL( isd_sol , wp) / 3600._wp 
    213             !LOLO!: 
    214             !pdT(ji,jj) = REAL( isd_sol , wp) / 3600._wp !LOLO! 
    215             !END DO 
    216             !END DO 
    217             !CALL DUMP_FIELD(REAL( pdT , 4), 'isd_sol.nc', 'solar_hour' ) 
    218             !STOP'LOLO!' 
    219             !DO jj = 1, jpj 
    220             !   DO ji = 1, jpi 
    221             !LOLO. 
    222  
    223             !PRINT *, ' Lag in hours / Greenwich for local solar time =', rlag_gw_h 
    224             !PRINT *, '     UTC     time in seconds:', isd 
    225             !PRINT *, ' Local solar time in seconds:', isd_sol 
    226             !PRINT *, '     UTC     time in hours:',   REAL(isd    ,wp)/3600._wp 
    227             !PRINT *, '  [WL_COARE3P6] Local solar time in hours:',   REAL(isd_sol,wp)/3600._wp 
    228211 
    229212            !*****  variables for warm layer  *** 
     
    311294         END DO 
    312295      END DO 
    313  
    314       !WRITE(cf_tmp,'("Qnt_ac_",i5.5,".nc")') kt 
    315       !CALL DUMP_FIELD(REAL( Qnt_ac , 4), TRIM(cf_tmp), 'Qnt_ac') 
    316        
    317296       
    318297   END SUBROUTINE WL_COARE3P6 
Note: See TracChangeset for help on using the changeset viewer.