Changeset 11616 for NEMO/branches
- Timestamp:
- 2019-09-30T15:23:40+02:00 (5 years ago)
- 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 30 30 USE lib_fortran ! to use key_nosignedzero 31 31 32 USE io_ezcdf ! LOLO!33 34 32 IMPLICIT NONE 35 33 PRIVATE … … 211 209 isd_sol = MODULO( isd + ilag_gw_s , 24*3600 ) 212 210 rhr_sol = REAL( isd_sol , wp) / 3600._wp 213 !LOLO!:214 !pdT(ji,jj) = REAL( isd_sol , wp) / 3600._wp !LOLO!215 !END DO216 !END DO217 !CALL DUMP_FIELD(REAL( pdT , 4), 'isd_sol.nc', 'solar_hour' )218 !STOP'LOLO!'219 !DO jj = 1, jpj220 ! DO ji = 1, jpi221 !LOLO.222 223 !PRINT *, ' Lag in hours / Greenwich for local solar time =', rlag_gw_h224 !PRINT *, ' UTC time in seconds:', isd225 !PRINT *, ' Local solar time in seconds:', isd_sol226 !PRINT *, ' UTC time in hours:', REAL(isd ,wp)/3600._wp227 !PRINT *, ' [WL_COARE3P6] Local solar time in hours:', REAL(isd_sol,wp)/3600._wp228 211 229 212 !***** variables for warm layer *** … … 311 294 END DO 312 295 END DO 313 314 !WRITE(cf_tmp,'("Qnt_ac_",i5.5,".nc")') kt315 !CALL DUMP_FIELD(REAL( Qnt_ac , 4), TRIM(cf_tmp), 'Qnt_ac')316 317 296 318 297 END SUBROUTINE WL_COARE3P6
Note: See TracChangeset
for help on using the changeset viewer.