Changeset 12511 for NEMO/branches/2020/r12377_ticket2386/src/OCE/DIU
- Timestamp:
- 2020-03-05T12:21:05+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/r12377_ticket2386
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12377_ticket2386
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2020/r12377_ticket2386/src/OCE/DIU/diu_coolskin.F90
r12377 r12511 67 67 68 68 69 SUBROUTINE diurnal_sst_coolskin_step(psqflux, pstauflux, psrho, rdt)69 SUBROUTINE diurnal_sst_coolskin_step(psqflux, pstauflux, psrho, pDt) 70 70 !!---------------------------------------------------------------------- 71 71 !! *** ROUTINE diurnal_sst_takaya_step *** … … 81 81 REAL(wp), INTENT(IN), DIMENSION(jpi,jpj) :: pstauflux ! Wind stress (kg/ m s^2) 82 82 REAL(wp), INTENT(IN), DIMENSION(jpi,jpj) :: psrho ! Water density (kg/m^3) 83 REAL(wp), INTENT(IN) :: rdt ! Time-step83 REAL(wp), INTENT(IN) :: pDt ! Time-step 84 84 85 85 ! Local variables -
NEMO/branches/2020/r12377_ticket2386/src/OCE/DIU/diu_layers.F90
r12377 r12511 39 39 ! Cool skin 40 40 41 CALL diurnal_sst_coolskin_step( qns, taum, rhop(:,:,1), r dt)41 CALL diurnal_sst_coolskin_step( qns, taum, rhop(:,:,1), rn_Dt) 42 42 43 43 CALL iom_put( "sst_wl" , x_dsst ) ! warm layer (write out before update below). … … 45 45 46 46 ! Diurnal warm layer model 47 CALL diurnal_sst_takaya_step( kstp, qsr, qns, taum, rhop(:,:,1), r dt)47 CALL diurnal_sst_takaya_step( kstp, qsr, qns, taum, rhop(:,:,1), rn_Dt) 48 48 49 49 END SUBROUTINE diurnal_layers
Note: See TracChangeset
for help on using the changeset viewer.