- Timestamp:
- 2020-11-10T12:57:08+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_12905_xios_ancil
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_ancil
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_12905_xios_ancil/src/TOP/PISCES/SED/seddta.F90
r12489 r13766 24 24 !! * Substitutions 25 25 # include "do_loop_substitute.h90" 26 # include "domzgr_substitute.h90" 26 27 !! $Id$ 27 28 CONTAINS … … 95 96 ! ----------------------------------------------------------- 96 97 IF (ln_sediment_offline) THEN 97 DO_2D _11_1198 DO_2D( 1, 1, 1, 1 ) 98 99 ikt = mbkt(ji,jj) 99 100 zwsbio4(ji,jj) = wsbio2 / rday … … 101 102 END_2D 102 103 ELSE 103 DO_2D _11_11104 DO_2D( 1, 1, 1, 1 ) 104 105 ikt = mbkt(ji,jj) 105 106 zdep = e3t(ji,jj,ikt,Kmm) / rDt_trc … … 110 111 111 112 trc_data(:,:,:) = 0. 112 DO_2D _11_11113 DO_2D( 1, 1, 1, 1 ) 113 114 ikt = mbkt(ji,jj) 114 115 IF ( tmask(ji,jj,ikt) == 1 ) THEN … … 164 165 CALL pack_arr ( jpoce, rainrm_dta(1:jpoce,jscal), trc_data(1:jpi,1:jpj,14), iarroce(1:jpoce) ) 165 166 rainrm_dta(1:jpoce,jscal) = rainrm_dta(1:jpoce,jscal) * 1e-4 166 ! vector temperature [ °C] and salinity167 ! vector temperature [�C] and salinity 167 168 CALL pack_arr ( jpoce, temp(1:jpoce), trc_data(1:jpi,1:jpj,15), iarroce(1:jpoce) ) 168 169 CALL pack_arr ( jpoce, salt(1:jpoce), trc_data(1:jpi,1:jpj,16), iarroce(1:jpoce) )
Note: See TracChangeset
for help on using the changeset viewer.