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

Changeset 6431


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

Bug fixes in diaptr

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6429 r6431  
    168168                 z2d(ji,:) = z2d(1,:) 
    169169               ENDDO 
    170                cl1 = TRIM('sophtadv_'//clsub(jn))                  
     170               cl1 = TRIM('sophtadv_'//clsubb(jn))                  
    171171               CALL iom_put( cl1, z2d ) 
    172172               z2d(1,:) = str_adv(:,jn) * rc_ggram        ! (conversion in Gg) 
    … …  
    174174                  z2d(ji,:) = z2d(1,:) 
    175175               ENDDO 
    176                cl1 = TRIM('sopstadv_'//clsub(jn))                  
     176               cl1 = TRIM('sopstadv_'//clsubb(jn))                  
    177177               CALL iom_put( cl1, z2d )               
     178              ENDDO 
    178179            ENDIF 
    179180         ENDIF 
    180181         ! 
    181182         IF( iom_use("sophtldf") .OR. iom_use("sopstldf") ) THEN    
    182             z2d(1,:) = htr_ldf(:) * rc_pwatt        !  (conversion in PW)  
     183            z2d(1,:) = htr_ldf(:,1) * rc_pwatt        !  (conversion in PW)  
    183184            DO ji = 1, jpi 
    184185               z2d(ji,:) = z2d(1,:) 
    … …  
    186187            cl1 = 'sophtldf' 
    187188            CALL iom_put( TRIM(cl1), z2d ) 
    188             z2d(1,:) = str_ldf(:) * rc_ggram        !  (conversion in Gg) 
     189            z2d(1,:) = str_ldf(:,1) * rc_ggram        !  (conversion in Gg) 
    189190            DO ji = 1, jpi 
    190191               z2d(ji,:) = z2d(1,:) 
    … …  
    198199                 z2d(ji,:) = z2d(1,:) 
    199200               ENDDO 
    200                cl1 = TRIM('sophtldf_'//clsub(jn))                  
     201               cl1 = TRIM('sophtldf_'//clsubb(jn))                  
    201202               CALL iom_put( cl1, z2d ) 
    202203               z2d(1,:) = str_ldf(:,jn) * rc_ggram        ! (conversion in Gg) 
    … …  
    204205                  z2d(ji,:) = z2d(1,:) 
    205206               ENDDO 
    206                cl1 = TRIM('sopstldf_'//clsub(jn))                  
     207               cl1 = TRIM('sopstldf_'//clsubb(jn))                  
    207208               CALL iom_put( cl1, z2d )               
     209              ENDDO 
    208210            ENDIF 
    209211 
Note: See TracChangeset for help on using the changeset viewer.