New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6206 for branches/NERC – NEMO

Changeset 6206 for branches/NERC


Ignore:
Timestamp:
2016-01-04T16:55:47+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 04-01-2016 -- add Idtra restart diadnostics reading

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

    r6201 r6206  
    8686         IF(lwp) WRITE(numout,*) '   - idtra decay factor : ', FDEC 
    8787# if defined key_debug_medusa 
    88       CALL flush(numout) 
     88         CALL flush(numout) 
    8989# endif 
     90         CALL idtra_init 
    9091      ENDIF 
    9192 
     
    131132    !! jn loop 
    132133! 
    133  
     134# if defined key_debug_medusa 
     135         IF(lwp) WRITE(numout,*) '   IDTRA - calculation part - DONE trc_sms_idtra -- ' 
     136      CALL flush(numout) 
     137# endif 
    134138        ! 
     139        !! restart and diagnostics management --  
    135140      IF( lrst_trc ) THEN 
    136141         IF(lwp) WRITE(numout,*) 
     
    170175   END SUBROUTINE trc_sms_idtra 
    171176 
     177   SUBROUTINE idtra_init 
     178      !!--------------------------------------------------------------------- 
     179      !!                     ***  idtra_init  *** 
     180      !! 
     181      !! ** Purpose : read restart values for IDTRA model 
     182      !!--------------------------------------------------------------------- 
     183      INTEGER :: jn 
     184 
     185      IF( ln_rsttr ) THEN 
     186         IF(lwp) WRITE(numout,*) 
     187         IF(lwp) WRITE(numout,*) ' Read specific variables from Ideal Tracers model ' 
     188         IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
     189         ! 
     190         DO jn = jp_idtra0, jp_idtra1 
     191            CALL iom_get( numrtr, jpdom_autoglo, 'qint_IDTRA', qint_idtra(:,:,jn) ) 
     192         END DO 
     193      ENDIF 
     194      IF(lwp) WRITE(numout,*) 'idtra restart variables read -- OK' 
     195      ! 
     196   END SUBROUTINE idtra_init 
     197 
    172198   INTEGER FUNCTION trc_sms_idtra_alloc() 
    173199      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.