Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/surface_data.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/surface_data.f90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/phylmd/surface_data.f90

@@ -17 +17 @@
   CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
   !$OMP THREADPRIVATE(type_ocean)
+
+  !GG
+  INTEGER, SAVE          :: iflag_seaice
+  !$OMP THREADPRIVATE(iflag_seaice)
+  INTEGER, SAVE          :: iflag_seaice_alb
+  !$OMP THREADPRIVATE(iflag_seaice_alb)
+  INTEGER, SAVE          :: iflag_leads
+  !$OMP THREADPRIVATE(iflag_leads)
+
+  !For sea-ice
+  REAL,SAVE             :: sice_cond
+  !$OMP THREADPRIVATE(sice_cond)
+  REAL,SAVE             :: sisno_cond
+  !$OMP THREADPRIVATE(sisno_cond)
+  REAL,SAVE             :: sisno_den
+  !$OMP THREADPRIVATE(sisno_den)
+  REAL,SAVE             :: sisno_min
+  !$OMP THREADPRIVATE(sisno_min)
+  REAL,SAVE             :: sithick_min
+  !$OMP THREADPRIVATE(sithick_min)
+  REAL,SAVE             :: sisno_wfact
+  !$OMP THREADPRIVATE(sisno_wfact)
+  REAL,SAVE             :: amax_n
+  !$OMP THREADPRIVATE(amax_n)
+  REAL,SAVE             :: amax_s
+  !$OMP THREADPRIVATE(amax_s)
+  REAL,SAVE             :: rn_alb_sdry
+  !$OMP THREADPRIVATE(rn_alb_sdry)
+  REAL,SAVE             :: rn_alb_smlt
+  !$OMP THREADPRIVATE(rn_alb_smlt)
+  REAL,SAVE             :: rn_alb_idry
+  !$OMP THREADPRIVATE(rn_alb_idry)
+  REAL,SAVE             :: rn_alb_imlt
+  !$OMP THREADPRIVATE(rn_alb_imlt)
+  REAL,SAVE             :: si_pen_frac
+  !$OMP THREADPRIVATE(si_pen_frac)
+  REAL,SAVE             :: si_pen_ext
+  !$OMP THREADPRIVATE(si_pen_ext)
+  REAL,SAVE             :: fseaN
+  !$OMP THREADPRIVATE(fseaN)
+  REAL,SAVE             :: fseaS
+  !$OMP THREADPRIVATE(fseaS)
+  !GG
 
   ! if type_ocean=couple : version_ocean=opa8 ou nemo