Changeset 15332 for branches/UKMO/dev_r5518_GO6_package_port2021/NEMOGCM/NEMO

Timestamp:

2021-10-05T15:39:06+02:00 (3 years ago)

Author:

andmirek

Message:

Ticket GP29: All but AGRIF can be built.

Location:

branches/UKMO/dev_r5518_GO6_package_port2021/NEMOGCM/NEMO/OPA_SRC

Files:

• ASM/asmbgc.F90 (modified) (3 diffs)
• BDY/bdyini.F90 (modified) (1 diff)
• DYN/sshwzv.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_port2021/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

@@ -30 +30 @@
       & jpj,                &
       & jpk
+#if defined key_vvl
+   USE dom_oce,       ONLY: gdepw_n
+#endif
    USE iom                    ! i/o
    USE oce, ONLY:           & ! active tracer variables
@@ -1491 +1494 @@
             END SELECT
          ENDIF
-
+#if defined key_vvl
          ! Propagate through mixed layer
          DO jj = 1, jpj
@@ -1513 +1516 @@
             END DO
          END DO
+#else
+          CALL ctl_stop( 'pco2_asm_inc: key_vvl must be set')
+#endif
 
       ENDIF

branches/UKMO/dev_r5518_GO6_package_port2021/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

@@ -1727 +1727 @@
       IF ((itest==0).AND.(lwp)) WRITE(numout,*) 'NO open boundary corner found'
       !
-      IF(lwp. AND. lflush) CALL flush(numout)
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
       ! Other tests TBD: 

branches/UKMO/dev_r5518_GO6_package_port2021/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -107 +107 @@
                  hdivn(:,:,jk) = hdivn(:,:,jk) - ( ssh_iau(:,:) / ( ht_0(:,:) + 1.0 - ssmask(:,:) ) ) * ( e3t_0(:,:,jk) / fse3t_n(:,:,jk) ) * tmask(:,:,jk) 
         END DO
-      ENDIF
-#endif
+#endif
+      ENDIF
 #endif