Changeset 7567 for branches/UKMO/CO6_shelfclimate/NEMOGCM/NEMO/TOP_SRC/trcini.F90

Timestamp:

2017-01-16T20:11:00+01:00 (7 years ago)

Author:

hadjt

Message:

CO6 version adapted for shelf seas climate projections, including added diagnostics

File:

• branches/UKMO/CO6_shelfclimate/NEMOGCM/NEMO/TOP_SRC/trcini.F90 (modified) (3 diffs)

branches/UKMO/CO6_shelfclimate/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -32 +32 @@
    USE sbc_oce
    USE trcice          ! tracers in sea ice
+   USE trcbc,   only : trc_bc_init ! generalized Boundary Conditions
  
    IMPLICIT NONE
@@ -110 +111 @@
       ENDIF
 
+      ! Initialisation of tracers Initial Conditions
       IF( ln_trcdta )      CALL trc_dta_init(jptra)
-
 
       IF( ln_rsttr ) THEN
@@ -140 +141 @@
             CALL wrk_dealloc( jpi, jpj, jpk, ztrcdta )
         ENDIF
+! slwa temporary insert initialise tracer
+            trn(:,:,:,:)  = 0._wp
+            if(nproc.eq.39)then
+              DO jn = 1, jptra
+                  trn(:,:,:,jn) = 100._wp * tmask(:,:,:)
+              ENDDO
+            endif
+!!!! slwa temp
         !
         trb(:,:,:,:) = trn(:,:,:,:)
         ! 
       ENDIF
+! Initialisation of tracers Boundary Conditions  - here so that you can use initial condition as boundary
+      IF( lk_my_trc )     CALL trc_bc_init(jptra)
  
       tra(:,:,:,:) = 0._wp