Changeset 1119 for trunk/NEMO/TOP_SRC/LOBSTER/trcbio.F90

Timestamp:

2008-06-20T17:17:41+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

• trunk/NEMO/TOP_SRC/LOBSTER/trcbio.F90 (modified) (6 diffs)

trunk/NEMO/TOP_SRC/LOBSTER/trcbio.F90

@@ -16 +16 @@
    !!----------------------------------------------------------------------
    USE oce_trc         !
-   USE trp_trc         ! 
+   USE trc             ! 
    USE sms_lobster     ! 
    USE lbclnk          ! 
@@ -90 +90 @@
       fbod(:,:) = 0.e0
 #if defined key_trc_diaadd
-      DO ji = 1, jpdia2d
+      DO ji = 1, jp_lobster_2d
          trc2d(:,:,ji) = 0.e0
       END DO 
@@ -182 +182 @@
                zdeta =   zphydet + zzoodet - zdetzoo - zdetnh4 - zdetdom + zboddet
                zdoma =   zphydom + zzoodom + zdetdom - zdomnh4 - zdomaju
-   
+
 #if defined key_trc_diabio
                trbio(ji,jj,jk, 1) = zno3phy
@@ -239 +239 @@
       END DO
 
+      !
+
 !!gm do loop until jpkm1 only!
       !                                      ! -------------------------- !
@@ -364 +366 @@
 #if defined key_trc_diaadd
       ! Lateral boundary conditions on trc2d and trc3d
-      DO ji = 1, jpdia2d
+      DO ji = 1, jp_lobster_2d
           CALL lbc_lnk( trc2d(:,:,ji),'T', 1. )
       END DO 
-      DO ji = 1, jpdia3d
+      DO ji = 1, jp_lobster_3d
           CALL lbc_lnk( trc3d(:,:,1,ji),'T', 1. )
       END DO 
@@ -374 +376 @@
 #if defined key_trc_diabio
       ! Lateral boundary conditions on trcbio
-      DO ji = 1, jpdiabio
+      DO ji = 1, jp_lobster_trd
           CALL lbc_lnk( trbio(:,:,1,ji),'T', 1. )
       END DO