- Timestamp:
- Mar 29, 2023, 3:14:27 PM (18 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/phys_output_var_mod.F90
r3940 r4482 135 135 ! Ocean-atmosphere interface, subskin ocean and near-surface ocean: 136 136 137 REAL, ALLOCATABLE, SAVE:: dter(:) 138 ! Temperature variation in the diffusive microlayer, that is 139 ! ocean-air interface temperature minus subskin temperature. In K. 140 141 REAL, SAVE, ALLOCATABLE:: dser(:) 142 ! Temperature variation in the diffusive microlayer, that is 143 ! subskin temperature minus ocean-air interface temperature. In K. 144 145 REAL, SAVE, ALLOCATABLE:: tkt(:) 137 REAL, SAVE, ALLOCATABLE:: tkt(:) ! (klon) 146 138 ! épaisseur (m) de la couche de diffusion thermique (microlayer) 147 139 ! cool skin thickness 148 140 149 REAL, SAVE, ALLOCATABLE:: tks(:) 141 REAL, SAVE, ALLOCATABLE:: tks(:) ! (klon) 150 142 ! épaisseur (m) de la couche de diffusion de masse (microlayer) 151 143 152 REAL, SAVE, ALLOCATABLE:: taur(:) ! momentum flux due to rain, in Pa153 154 REAL, SAVE, ALLOCATABLE:: sss(:) 144 REAL, SAVE, ALLOCATABLE:: taur(:) ! (klon) momentum flux due to rain, in Pa 145 146 REAL, SAVE, ALLOCATABLE:: sss(:) ! (klon) 155 147 ! bulk salinity of the surface layer of the ocean, in ppt 156 148 157 !$OMP THREADPRIVATE( dter, dser,tkt, tks, taur, sss)149 !$OMP THREADPRIVATE(tkt, tks, taur, sss) 158 150 159 151 CONTAINS … … 216 208 IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon)) 217 209 218 if (activate_ocean_skin >= 1) allocate( dter(klon), dser(klon), tkt(klon), &219 tks(klon), taur(klon),sss(klon))210 if (activate_ocean_skin >= 1) allocate(tkt(klon), tks(klon), taur(klon), & 211 sss(klon)) 220 212 221 213 END SUBROUTINE phys_output_var_init
Note: See TracChangeset
for help on using the changeset viewer.