Changeset 3811 for LMDZ6/branches/Ocean_skin/libf/dyn3d_common

Timestamp:

Jan 28, 2021, 4:02:09 PM (4 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/dyn3d_common/grilles_gcm_netcdf_sub.F90 (modified) (1 diff)
• libf/dyn3d_common/infotrac.F90 (modified) (1 diff, 1 prop)

LMDZ6/branches/Ocean_skin/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

@@ -78 +78 @@
   ! CREATION OUTPUT
   ! ouverture fichier netcdf de sortie out
-  status=NF_CREATE('grilles_gcm.nc',NF_CLOBBER,ncid_out)
+  status=NF_CREATE('grilles_gcm.nc',IOR(NF_CLOBBER,NF_64BIT_OFFSET),ncid_out)
   CALL handle_err(status)
   status=NF_DEF_DIM(ncid_out,'lonu',iim+1,out_lonudim)

LMDZ6/branches/Ocean_skin/libf/dyn3d_common/infotrac.F90

@@ -32 +32 @@
   INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE    :: iqfils
   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iqpere
+  REAL :: qperemin,masseqmin,ratiomin ! MVals et CRisi
+  PARAMETER (qperemin=1e-16,masseqmin=1e-16,ratiomin=1e-16) ! MVals
 
 ! conv_flg(it)=0 : convection desactivated for tracer number it