Changeset 8002
- Timestamp:
- 2017-05-08T17:51:45+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8001 r8002 1088 1088 IF( PRESENT(pv_r2d) .AND. idom /= jpdom_unknown ) THEN 1089 1089 CALL lbc_lnk( pv_r2d,'Z',-999.,'no0' ) 1090 if(lwp) write(numout,*) trim(cdvar),'UPDATE'1091 1090 ELSEIF( PRESENT(pv_r3d) .AND. idom /= jpdom_unknown ) THEN 1092 1091 ! this if could be simplified with the new lbc_lnk that works with any size of the 3rd dimension 1093 1092 IF( icnt(3) == jpk ) THEN 1094 1093 CALL lbc_lnk( pv_r3d,'Z',-999.,'no0' ) 1095 if(lwp) write(numout,*) trim(cdvar),'UPDATE'1096 1094 ELSE ! put some arbitrary value (a call to lbc_lnk will be done later...) 1097 1095 DO jj = nlcj+1, jpj ; pv_r3d(1:nlci, jj, :) = pv_r3d(1:nlci, nlej, :) ; END DO 1098 1096 DO ji = nlci+1, jpi ; pv_r3d(ji , : , :) = pv_r3d(nlei , : , :) ; END DO 1099 if(lwp) write(numout,*) trim(cdvar),' NO UPDATE'1100 1097 ENDIF 1101 1098 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.