- Timestamp:
- Jan 2, 2019, 7:44:20 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phys_state_var_mod.F90
r3208 r3429 417 417 ! tendencies on wind due to gravity waves 418 418 419 CONTAINS 419 ! Ocean-atmosphere interface, subskin ocean and near-surface ocean: 420 421 REAL, ALLOCATABLE, SAVE:: ds_ns(:) 422 ! "delta salinity near surface". Salinity variation in the 423 ! near-surface turbulent layer. That is subskin salinity minus 424 ! foundation salinity. In ppt. 425 426 REAL, ALLOCATABLE, SAVE:: dt_ns(:) 427 ! "delta temperature near surface". Temperature variation in the 428 ! near-surface turbulent layer. That is subskin temperature 429 ! minus foundation temperature. (Can be negative.) In K. 430 431 !$OMP THREADPRIVATE(ds_ns, dt_ns) 432 433 CONTAINS 420 434 421 435 !====================================================================== … … 607 621 if (.not. ok_hines .and. ok_gwd_rando) allocate(du_gwd_front(klon, klev)) 608 622 609 END SUBROUTINE phys_state_var_init 623 ALLOCATE(ds_ns(klon), dt_ns(klon)) 624 625 END SUBROUTINE phys_state_var_init 610 626 611 627 !======================================================================
Note: See TracChangeset
for help on using the changeset viewer.