Changeset 11892 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src

Timestamp:

2019-11-13T09:44:18+01:00 (4 years ago)

Author:

laurent

Message:

Improving test-case STATION_ASF, use of relevant heights and depth for PAPA station.

Location:

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE

Files:

• BDY/bdydta.F90 (modified) (1 diff)
• SBC/sbcdcy.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/BDY/bdydta.F90

@@ -615 +615 @@
             ENDIF
 
-            IF( llneed ) THEN                                              ! dta_bdy(jbdy)%xxx will be needed
+            IF( llneed .AND. iszdim > 0 ) THEN                             ! dta_bdy(jbdy)%xxx will be needed
                !                                                           !   -> must be associated with an allocated target
                ALLOCATE( bf_alias(1)%fnow( iszdim, 1, ipk ) )              ! allocate the target

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcdcy.F90

@@ -95 +95 @@
          ENDIF
       END IF
-      
+
       ! Setting parameters for each new day:
       CALL sbc_dcy_param()
@@ -176 +176 @@
          rtmd(:,:) = MOD( (rtmd(:,:) + 1._wp) , 1._wp)
       ENDIF
-      
+
       ! If this is a new day, we have to update the dawn, dusk and scaling function
       !----------------------