Changeset 1162 for trunk/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

Timestamp:

2008-07-02T11:33:33+02:00 (16 years ago)

Author:

cetlod

Message:

add an example of MY_TRC tracer model, see ticket:229

File:

• trunk/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

@@ -13 +13 @@
    !!----------------------------------------------------------------------
    USE par_trc         ! TOP parameters
+   USE oce_trc
+   USE trc
 
    IMPLICIT NONE
@@ -40 +42 @@
       IF(lwp) WRITE(numout,*) ' trc_sms_my_trc:  MY_TRC model'
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
+
+      WHERE( (glamt <= 170) .AND. (glamt >= 160) .AND. (gphit <= -74) .AND. (gphit >=-75.6) )
+        trn(:,:,1,jpmyt1) = 1.
+        trb(:,:,1,jpmyt1) = 1.
+        tra(:,:,1,jpmyt1) = 0.
+      END WHERE
+
+      WHERE( ((glamt <= -165) .OR. (glamt >= 160)) .AND. (gphit <= -76) .AND. (gphit >=-80)) 
+        trn(:,:,1,jpmyt2) = 1.
+        trb(:,:,1,jpmyt2) = 1.
+        tra(:,:,1,jpmyt2) = 0.
+      END WHERE
+
       !
    END SUBROUTINE trc_sms_my_trc