Changeset 4370 for LMDZ6/trunk/libf/phylmd/oasis.F90

Timestamp:

Dec 6, 2022, 4:23:49 PM (22 months ago)

Author:

lguez

Message:

Merge branch Ocean_skin back into trunk

Location:

LMDZ6/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/oasis.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/oasis.F90

@@ -62 +62 @@
   INTEGER, PARAMETER :: ids_qraiic = 28
   INTEGER, PARAMETER :: ids_qsnoic = 29
-  INTEGER, PARAMETER :: ids_delta_sst = 30, ids_delta_sal = 31
-  
-  INTEGER, PARAMETER :: maxsend    = 31  ! Maximum number of fields to send
+  INTEGER, PARAMETER :: ids_delta_sst = 30, ids_delta_sal = 31, ids_dter = 32, &
+       ids_dser = 33, ids_dt_ds = 34
+  
+  INTEGER, PARAMETER :: maxsend    = 34  ! Maximum number of fields to send
   
   ! Id for fields received from ocean
@@ -201 +202 @@
        infosend(ids_delta_sal)%action = .TRUE.
        infosend(ids_delta_sal)%name = 'CODELSSS'
+       infosend(ids_dter)%action = .TRUE.
+       infosend(ids_dter)%name = 'CODELTER'
+       infosend(ids_dser)%action = .TRUE.
+       infosend(ids_dser)%name = 'CODELSER'
+       infosend(ids_dt_ds)%action = .TRUE.
+       infosend(ids_dt_ds)%name = 'CODTDS'
     end if