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 10323 for NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/TOP/TRP/trdtrc.F90 – NEMO

Ignore:
Timestamp:
2018-11-16T16:13:30+01:00 (5 years ago)
Author:
davestorkey
Message:

UKMO/dev_r9950_GO6_mixing: Update to be relative to rev 10321 of NEMO4_beta_mirror branch.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/TOP/TRP/trdtrc.F90

    r9950 r10323  
    2525 
    2626   !!---------------------------------------------------------------------- 
    27    !! NEMO/TOP 3.3 , NEMO Consortium (2018) 
     27   !! NEMO/TOP 4.0 , NEMO Consortium (2018) 
    2828   !! $Id$ 
    29    !! Software governed by the CeCILL licence (./LICENSE) 
     29   !! Software governed by the CeCILL license (see ./LICENSE) 
    3030   !!---------------------------------------------------------------------- 
    3131 
    … …  
    8181         ! 
    8282         SELECT CASE( ktrd ) 
    83          CASE( jptra_xad  )       ;    WRITE (cltra,'("XAD_",4a)') 
    84          CASE( jptra_yad  )       ;    WRITE (cltra,'("YAD_",4a)') 
    85          CASE( jptra_zad  )       ;    WRITE (cltra,'("ZAD_",4a)') 
    86          CASE( jptra_ldf  )       ;    WRITE (cltra,'("LDF_",4a)') 
    87          CASE( jptra_bbl  )       ;    WRITE (cltra,'("BBL_",4a)') 
    88          CASE( jptra_nsr  )       ;    WRITE (cltra,'("FOR_",4a)') 
    89          CASE( jptra_zdf  )       ;    WRITE (cltra,'("ZDF_",4a)') 
    90          CASE( jptra_dmp  )       ;    WRITE (cltra,'("DMP_",4a)') 
    91          CASE( jptra_sms  )       ;    WRITE (cltra,'("SMS_",4a)') 
    92          CASE( jptra_atf  )       ;    WRITE (cltra,'("ATF_",4a)') 
    93          CASE( jptra_radb )       ;    WRITE (cltra,'("RDB_",4a)') 
    94          CASE( jptra_radn )       ;    WRITE (cltra,'("RDN_",4a)') 
     83         CASE( jptra_xad  )  ;  WRITE (cltra,'("XAD_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     84         CASE( jptra_yad  )  ;  WRITE (cltra,'("YAD_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     85         CASE( jptra_zad  )  ;  WRITE (cltra,'("ZAD_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     86         CASE( jptra_ldf  )  ;  WRITE (cltra,'("LDF_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     87         CASE( jptra_bbl  )  ;  WRITE (cltra,'("BBL_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     88         CASE( jptra_nsr  )  ;  WRITE (cltra,'("FOR_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     89         CASE( jptra_zdf  )  ;  WRITE (cltra,'("ZDF_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     90         CASE( jptra_zdfp )  ;  WRITE (cltra,'("ZDP_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     91         CASE( jptra_dmp  )  ;  WRITE (cltra,'("DMP_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     92         CASE( jptra_sms  )  ;  WRITE (cltra,'("SMS_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     93         CASE( jptra_tot  )  ;  WRITE (cltra,'("TOT_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     94         CASE( jptra_atf  )  ;  WRITE (cltra,'("ATF_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     95         CASE( jptra_radb )  ;  WRITE (cltra,'("RDB_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     96         CASE( jptra_radn )  ;  WRITE (cltra,'("RDN_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
    9597         END SELECT 
    96                                           cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) 
    97                                           CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
    9898         ! 
    9999      END IF 
Note: See TracChangeset for help on using the changeset viewer.