Changeset 4057

Timestamp:

2013-10-10T17:57:42+02:00 (11 years ago)

Author:

cbricaud

Message:

Fixed some compilation bugs

Location:

branches/2013/dev_r3867_MERCATOR1_DYN/NEMOGCM/NEMO/OPA_SRC/DYN

Files:

• dynnept.F90 (modified) (5 diffs)
• dynspg_ts.F90 (modified) (1 diff)

branches/2013/dev_r3867_MERCATOR1_DYN/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90

@@ -109 +109 @@
       REAL(wp) :: hramp                         ! depth over which Neptune vel. is ramped down
       !
-      REAL(wp), POINTER, DIMENSION(:,:  ) :: ht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n      
+      REAL(wp), POINTER, DIMENSION(:,:  ) :: zht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n      
       REAL(wp), POINTER, DIMENSION(:,:,:) :: znmask
       !!
@@ -142 +142 @@
       IF( .NOT. ln_neptsimp ) RETURN
       !                                 ! Dynamically allocate local work arrays
-      CALL wrk_alloc( jpi, jpj     , ht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n  ) 
+      CALL wrk_alloc( jpi, jpj     , zht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n  ) 
       CALL wrk_alloc( jpi, jpj, jpk, znmask                                          ) 
 
@@ -193 +193 @@
 
       IF( ln_smooth_neptvel ) THEN
-         CALL dyn_nept_smooth_vel( htn, ht, .TRUE. )
+         CALL dyn_nept_smooth_vel( htn, zht, .TRUE. )
       !! overwrites ht with a smoothed version of htn
       ELSE
-         ht(:,:) = htn(:,:)
+         zht(:,:) = htn(:,:)
       !! use unsmoothed version of htn
       ENDIF
-      CALL lbc_lnk( ht, 'F', 1.0_wp )
+      CALL lbc_lnk( zht, 'F', 1.0_wp )
 
       !! Compute tsp, a stream function for the Neptune velocity,
@@ -211 +211 @@
       tscale(:,:) = rn_tslsp + (rn_tslse - rn_tslsp) *   &
                    ( 0.5_wp + 0.5_wp * COS( 2.0_wp * rad * gphif(:,:) )  )
-      tsp   (:,:) = -2.0_wp * omega * SIN( rad * gphif(:,:) ) * tscale(:,:) * tscale(:,:) * ht(:,:)
+      tsp   (:,:) = -2.0_wp * omega * SIN( rad * gphif(:,:) ) * tscale(:,:) * tscale(:,:) * zht(:,:)
 
 
@@ -327 +327 @@
 !!    Deallocate temporary workspace arrays, which are all local to
 !!    this routine, except where passed as arguments to other routines
-      CALL wrk_dealloc( jpi, jpj     , ht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n  ) 
+      CALL wrk_dealloc( jpi, jpj     , zht, htn, tscale, tsp, hur_n, hvr_n, hu_n, hv_n  ) 
       CALL wrk_dealloc( jpi, jpj, jpk, znmask                                          ) 
       !

branches/2013/dev_r3867_MERCATOR1_DYN/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -510 +510 @@
          ! Update only tidal forcing at open boundaries
 #if defined key_tide
+#if defined key_bdy
          IF ( lk_bdy .AND. lk_tide )      CALL bdy_dta_tides( kt, kit=jn, time_offset=(noffset+1) )
+#endif
          IF ( ln_tide_pot .AND. lk_tide ) CALL upd_tide( kt, kit=jn, time_offset=noffset )
 #endif