Changeset 8351


Ignore:
Timestamp:
2017-07-19T12:55:37+02:00 (4 years ago)
Author:
jamrae
Message:

Debugging.

File:
1 edited

Legend:

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

    r8350 r8351  
    25432543             ztmp1(:,:) = fmdice(:,:) 
    25442544      END SELECT 
    2545       IF( ssnd(jps_fmdice)%laction )   CALL cpl_prism_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )  
     2545      IF( ssnd(jps_fmdice)%laction )   CALL cpl_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )  
    25462546      ! 
    25472547      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.