Changeset 5395


Ignore:
Timestamp:
2015-06-10T14:15:43+02:00 (5 years ago)
Author:
jamrae
Message:

Updated out-of-date function name (cpl_prism_snd to cpl_snd).

File:
1 edited

Legend:

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

    r5392 r5395  
    16081608           ztmp3(:,:,1:jpl) = kn_ice(:,:,1:jpl) 
    16091609         END SELECT 
    1610          IF( ssnd(jps_kice)%laction )   CALL cpl_prism_snd( jps_kice, isec, ztmp3, info ) 
     1610         IF( ssnd(jps_kice)%laction )   CALL cpl_snd( jps_kice, isec, ztmp3, info ) 
    16111611      ENDIF 
    16121612      ! 
     
    17501750      ! 
    17511751      ztmp1(:,:) = sstfrz(:,:) + rt0 
    1752       IF( ssnd(jps_sstfrz)%laction )  CALL cpl_prism_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
     1752      IF( ssnd(jps_sstfrz)%laction )  CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
    17531753      ! 
    17541754      CALL wrk_dealloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 
Note: See TracChangeset for help on using the changeset viewer.