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 5393 for branches/UKMO – NEMO

Changeset 5393 for branches/UKMO


Ignore:
Timestamp:
2015-06-10T13:40:35+02:00 (9 years ago)
Author:
jamrae
Message:

Renamed variable jpl as jl.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5377_UKMO1_CICE_coupling_GSI7/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r5390 r5393  
    463463 
    464464! Sea ice surface skin temperature 
    465       DO jpl=1,ncat 
    466         CALL nemo2cice(tsfc_ice(:,:,jpl), trcrn(:,:,nt_tsfc,jpl,:),'T',1.) 
     465      DO jl=1,ncat 
     466        CALL nemo2cice(tsfc_ice(:,:,jl), trcrn(:,:,nt_tsfc,jl,:),'T',1.) 
    467467      ENDDO  
    468468 
     
    749749!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
    750750!!      IF (heat_capacity) THEN 
    751 !!         DO jpl = 1,ncat 
    752 !!            CALL cice2nemo(Tn_top(:,:,jpl,:),tn_ice(:,:,jpl),'T', 1. ) 
    753 !!            CALL cice2nemo(keffn_top(:,:,jpl,:),kn_ice(:,:,jpl),'T', 1. ) 
     751!!         DO jl = 1,ncat 
     752!!            CALL cice2nemo(Tn_top(:,:,jl,:),tn_ice(:,:,jl),'T', 1. ) 
     753!!            CALL cice2nemo(keffn_top(:,:,jl,:),kn_ice(:,:,jl),'T', 1. ) 
    754754!!         ENDDO 
    755755!!! Convert surface temperature to Kelvin 
Note: See TracChangeset for help on using the changeset viewer.