Changeset 7949 for branches

Timestamp:

2023-04-11T11:47:58+02:00 (21 months ago)

Author:

nicolas.vuichard

Message:

correct output for BNF

File:

• branches/ORCHIDEE_3_CMIP6/ORCHIDEE/src_sechiba/slowproc.f90 (modified) (2 diffs)

branches/ORCHIDEE_3_CMIP6/ORCHIDEE/src_sechiba/slowproc.f90

@@ -1947 +1947 @@
           !Config Units = [gN m-2 d-1] 
           nbnf=zero
-          CALL getin_p ('NBNF',nbnf)       
-          n_input(:,:,:,ibnf)=nbnf
+          CALL getin_p ('NBNF',nbnf)  
+          DO jv=1,nvm
+             IF(natural(jv)) THEN
+                n_input(:,jv,:,ibnf)=nbnf
+             ELSE
+                n_input(:,jv,:,ibnf)=0.
+             ENDIF
+          ENDDO
        ENDIF
     ELSE
@@ -4638 +4644 @@
           CASE ("Nbnf")
              DO iv = 1,nvm 
-                Ninput_vec(:,iv,:) = Ninput_read(:,:)
+                IF(natural(iv)) THEN
+                   Ninput_vec(:,iv,:) = Ninput_read(:,:)
+                ENDIF
              ENDDO
           CASE default