Changeset 8221

Timestamp:

2023-10-10T15:56:18+02:00 (7 months ago)

Author:

anne.cozic

Message:

update sechiba_interface_orchidee_inca to allow compatibility between all versions of Orchidee and a single one for Inca

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/sechiba.f90 (modified) (3 diffs)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/sechiba.f90

@@ -2164 +2164 @@
   SUBROUTINE sechiba_interface_orchidee_inca( &
        nvm_out, veget_max_out, veget_frac_out, lai_out, snow_out, &
-       field_out_names, fields_out, field_in_names, fields_in)
+       field_out_COV_names, fields_out_COV, field_in_COV_names, fields_in_COV, &
+       field_out_Nsoil_names, fields_out_Nsoil, nnspec_out)
 
 
@@ -2177 +2178 @@
     !
     ! Names and fields for emission variables : to be transport by Orchidee to Inca
-    CHARACTER(LEN=*),DIMENSION(:), OPTIONAL, INTENT(IN) :: field_out_names
-    REAL(r_std),DIMENSION(:,:,:), OPTIONAL, INTENT(OUT) :: fields_out
+    CHARACTER(LEN=*),DIMENSION(:), OPTIONAL, INTENT(IN) :: field_out_COV_names
+    REAL(r_std),DIMENSION(:,:,:), OPTIONAL, INTENT(OUT) :: fields_out_COV
     !
     ! Names and fields for deposit variables : to be transport from chemistry model by INCA to ORCHIDEE.
-    CHARACTER(LEN=*),DIMENSION(:), OPTIONAL, INTENT(IN) :: field_in_names
-    REAL(r_std),DIMENSION(:,:), OPTIONAL, INTENT(IN)    :: fields_in
-
+    CHARACTER(LEN=*),DIMENSION(:), OPTIONAL, INTENT(IN) :: field_in_COV_names
+    REAL(r_std),DIMENSION(:,:), OPTIONAL, INTENT(IN)    :: fields_in_COV
+
+    CHARACTER(LEN=*),DIMENSION(:), OPTIONAL, INTENT(IN) :: field_out_Nsoil_names  !! Not used before ORCHIDEE_3
+    REAL(r_std),DIMENSION(:,:,:), OPTIONAL, INTENT(out) :: fields_out_Nsoil       !! Not used before ORCHIDEE_3
+    INTEGER, OPTIONAL, INTENT(out)                      :: nnspec_out             !! Not used before ORCHIDEE_3
+
+
+    IF (PRESENT(field_out_Nsoil_names) .OR. PRESENT(fields_out_Nsoil) .OR. PRESENT(nnspec_out)) THEN
+       CALL ipslerr_p(3,'sechiba_interface_orchidee_inca','This version of Orchidee is not usable for coupling nitrogen with atmosphere',&
+            'Please use Orchidee_3 or modify coupling between atm and surf','')
+    ENDIF
 
     ! Variables always transmitted from sechiba to inca
@@ -2194 +2204 @@
     ! Call chemistry_flux_interface if at least one of variables field_out_names or
     ! field_in_names is present in the argument list of sechiba_interface_orchidee_inca when called from inca.
-    IF (PRESENT(field_out_names) .AND. .NOT. PRESENT(field_in_names)) THEN 
-       CALL chemistry_flux_interface(field_out_names=field_out_names, fields_out=fields_out)
-    ELSE IF (.NOT. PRESENT(field_out_names) .AND. PRESENT(field_in_names)) THEN 
-       CALL chemistry_flux_interface(field_in_names=field_in_names, fields_in=fields_in)
-    ELSE IF (PRESENT(field_out_names) .AND. PRESENT(field_in_names)) THEN 
-       CALL chemistry_flux_interface(field_out_names=field_out_names, fields_out=fields_out, &
-            field_in_names=field_in_names, fields_in=fields_in)
+    IF (PRESENT(field_out_COV_names) .AND. .NOT. PRESENT(field_in_COV_names)) THEN 
+       CALL chemistry_flux_interface(field_out_names=field_out_COV_names, fields_out=fields_out_COV)
+    ELSE IF (.NOT. PRESENT(field_out_COV_names) .AND. PRESENT(field_in_COV_names)) THEN 
+       CALL chemistry_flux_interface(field_in_names=field_in_COV_names, fields_in=fields_in_COV)
+    ELSE IF (PRESENT(field_out_COV_names) .AND. PRESENT(field_in_COV_names)) THEN 
+       CALL chemistry_flux_interface(field_out_names=field_out_COV_names, fields_out=fields_out_COV, &
+            field_in_names=field_in_COV_names, fields_in=fields_in_COV)
     ENDIF