Changeset 6639 for branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90

Timestamp:

2016-05-27T14:58:40+02:00 (8 years ago)

Author:

frrh

Message:

Merge NERC/dev_r5518_NOC_MEDUSA_Stable rev 5736 to 6509 inclusive

File:

• branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90

@@ -16 +16 @@
    USE trc             ! TOP variables
    USE trcsms_idtra    ! IDEAL-TRACER sms trends
-   USE par_idtra       ! IDEAL-TRACER parameters
-   USE in_out_manager  ! I/O manager
-   USE lib_mpp
-   USE iom
+   ! USE par_idtra       ! IDEAL-TRACER parameters
+   ! USE in_out_manager  ! I/O manager
+   ! USE lib_mpp
+   ! USE iom
 
    IMPLICIT NONE
@@ -46 +46 @@
       !!----------------------------------------------------------------------
 
+      IF(lwp) WRITE(numout,*)
+      IF(lwp) WRITE(numout,*) ' trc_ini_idtra: initialisation of Ideal Tracers model'
+      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~'
+
+      IF( trc_sms_idtra_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_idtra:unable to allocate CFC arrays' )
+
 
       ! Initialization of trn in case of  no restart
       !----------------------------------------------
+      qtr_idtra(:,:,:) = 0._wp
+      inv_idtra(:,:,:) = 0._wp
       IF( .NOT. ln_rsttr ) THEN
          IF(lwp) THEN
             WRITE(numout,*)
-            WRITE(numout,*) 'Initialization de id-tracers ; No restart : '
+            WRITE(numout,*) 'Initialization of id-tracers ; No restart : '
             WRITE(numout,*) '                             ; Init field equal 1 at surface - zero elsewhere'
+            WRITE(numout,*) '                             ; qint idtra equal 0 '
          ENDIF
+         qint_idtra(:,:,:) = 0._wp
          DO jn = jp_idtra0, jp_idtra1
              trn(:,:,:,jn) = 0.e0