Changeset 6429 for branches/UKMO/v3_6_extra_CMIP6_diagnostics/NEMOGCM
- Timestamp:
- 2016-04-05T17:10:18+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/v3_6_extra_CMIP6_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r6428 r6429 82 82 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zmask ! 3D workspace 83 83 REAL(wp), DIMENSION(jpi,jpj,jpk,jpts) :: zts ! 3D workspace 84 CHARACTER( len = 1 0) :: cl184 CHARACTER( len = 12 ) :: cl1 85 85 !!---------------------------------------------------------------------- 86 86 ! … … 150 150 ! ! Advective and diffusive heat and salt transport 151 151 IF( iom_use("sophtadv") .OR. iom_use("sopstadv") ) THEN 152 z2d(1,:) = htr_adv(: ) * rc_pwatt ! (conversion in PW)152 z2d(1,:) = htr_adv(:,1) * rc_pwatt ! (conversion in PW) 153 153 DO ji = 1, jpi 154 154 z2d(ji,:) = z2d(1,:) … … 156 156 cl1 = 'sophtadv' 157 157 CALL iom_put( TRIM(cl1), z2d ) 158 z2d(1,:) = str_adv(: ) * rc_ggram ! (conversion in Gg)158 z2d(1,:) = str_adv(:,1) * rc_ggram ! (conversion in Gg) 159 159 DO ji = 1, jpi 160 160 z2d(ji,:) = z2d(1,:) … … 162 162 cl1 = 'sopstadv' 163 163 CALL iom_put( TRIM(cl1), z2d ) 164 IF( ln_subbas ) THEN 165 DO jn=2,nptr 166 z2d(1,:) = htr_adv(:,jn) * rc_pwatt ! (conversion in PW) 167 DO ji = 1, jpi 168 z2d(ji,:) = z2d(1,:) 169 ENDDO 170 cl1 = TRIM('sophtadv_'//clsub(jn)) 171 CALL iom_put( cl1, z2d ) 172 z2d(1,:) = str_adv(:,jn) * rc_ggram ! (conversion in Gg) 173 DO ji = 1, jpi 174 z2d(ji,:) = z2d(1,:) 175 ENDDO 176 cl1 = TRIM('sopstadv_'//clsub(jn)) 177 CALL iom_put( cl1, z2d ) 178 ENDIF 164 179 ENDIF 165 180 ! … … 177 192 cl1 = 'sopstldf' 178 193 CALL iom_put( TRIM(cl1), z2d ) 194 IF( ln_subbas ) THEN 195 DO jn=2,nptr 196 z2d(1,:) = htr_ldf(:,jn) * rc_pwatt ! (conversion in PW) 197 DO ji = 1, jpi 198 z2d(ji,:) = z2d(1,:) 199 ENDDO 200 cl1 = TRIM('sophtldf_'//clsub(jn)) 201 CALL iom_put( cl1, z2d ) 202 z2d(1,:) = str_ldf(:,jn) * rc_ggram ! (conversion in Gg) 203 DO ji = 1, jpi 204 z2d(ji,:) = z2d(1,:) 205 ENDDO 206 cl1 = TRIM('sopstldf_'//clsub(jn)) 207 CALL iom_put( cl1, z2d ) 208 ENDIF 209 179 210 ENDIF 180 211 !
Note: See TracChangeset
for help on using the changeset viewer.