- Timestamp:
- 2018-11-16T15:59:30+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO4_beta_mirror/src/TOP/TRP/trdtrc.F90
r9950 r10321 25 25 26 26 !!---------------------------------------------------------------------- 27 !! NEMO/TOP 3.3, NEMO Consortium (2018)27 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 28 28 !! $Id$ 29 !! Software governed by the CeCILL licen ce (./LICENSE)29 !! Software governed by the CeCILL license (see ./LICENSE) 30 30 !!---------------------------------------------------------------------- 31 31 … … 81 81 ! 82 82 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(:,:,:) ) 95 97 END SELECT 96 cltra = TRIM(cltra)//TRIM(ctrcnm(kjn))97 CALL iom_put( cltra, ptrtrd(:,:,:) )98 98 ! 99 99 END IF
Note: See TracChangeset
for help on using the changeset viewer.