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 6429 – NEMO

Changeset 6429


Ignore:
Timestamp:
2016-04-05T17:10:18+02:00 (8 years ago)
Author:
timgraham
Message:

Extra change forgotten in previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/v3_6_extra_CMIP6_diagnostics/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r6428 r6429  
    8282      REAL(wp), DIMENSION(jpi,jpj,jpk) ::  zmask   ! 3D workspace 
    8383      REAL(wp), DIMENSION(jpi,jpj,jpk,jpts) ::  zts   ! 3D workspace 
    84       CHARACTER( len = 10 )  :: cl1 
     84      CHARACTER( len = 12 )  :: cl1 
    8585      !!---------------------------------------------------------------------- 
    8686      ! 
     
    150150         !                                ! Advective and diffusive heat and salt transport 
    151151         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) 
    153153            DO ji = 1, jpi 
    154154               z2d(ji,:) = z2d(1,:) 
     
    156156            cl1 = 'sophtadv'                  
    157157            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) 
    159159            DO ji = 1, jpi 
    160160               z2d(ji,:) = z2d(1,:) 
     
    162162            cl1 = 'sopstadv' 
    163163            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 
    164179         ENDIF 
    165180         ! 
     
    177192            cl1 = 'sopstldf' 
    178193            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 
    179210         ENDIF 
    180211         ! 
Note: See TracChangeset for help on using the changeset viewer.