Changeset 601 for trunk/NEMO/OPA_SRC/TRD
- Timestamp:
- 2007-02-20T15:41:10+01:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC/TRD
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRD/trdicp.F90
r521 r601 701 701 !! Default case : Empty module 702 702 !!---------------------------------------------------------------------- 703 INTERFACE trd_icp 704 MODULE PROCEDURE trd_2d, trd_3d 705 END INTERFACE 706 703 707 CONTAINS 704 708 SUBROUTINE trd_2d( ptrd2dx, ptrd2dy, ktrd , ctype, clpas ) ! Empty routine 705 709 REAL, DIMENSION(:,:) :: ptrd2dx, ptrd2dy 706 CHARACTER(len=3), INTENT(in), OPTIONAL :: clpas ! number of passage 710 INTEGER , INTENT(in ) :: ktrd ! tracer trend index 711 CHARACTER(len=3) , INTENT(in ) :: ctype ! momentum ('DYN') or tracers ('TRA') trends 712 CHARACTER(len=3), INTENT(in), OPTIONAL :: clpas ! number of passage 707 713 WRITE(*,*) 'trd_2d: You should not have seen this print! error ?', & 708 714 & ptrd2dx(1,1), ptrd2dy(1,1), ktrd, ctype, clpas … … 710 716 SUBROUTINE trd_3d( ptrd3dx, ptrd3dy, ktrd , ctype, clpas ) ! Empty routine 711 717 REAL, DIMENSION(:,:,:) :: ptrd3dx, ptrd3dy 712 CHARACTER(len=3), INTENT(in), OPTIONAL :: clpas ! number of passage 718 INTEGER , INTENT(in ) :: ktrd ! tracer trend index 719 CHARACTER(len=3) , INTENT(in ) :: ctype ! momentum ('DYN') or tracers ('TRA') trends 720 CHARACTER(len=3), INTENT(in), OPTIONAL :: clpas ! number of passage 713 721 WRITE(*,*) 'trd_3d: You should not have seen this print! error ?', & 714 722 & ptrd3dx(1,1,1), ptrd3dy(1,1,1), ktrd, ctype, clpas -
trunk/NEMO/OPA_SRC/TRD/trdmod.F90
r597 r601 97 97 CASE ( jptra_trd_yad ) ; CALL trd_icp( ptrdx, ptrdy, jpicpt_yad, ctype ) ! y- horiz adv 98 98 CASE ( jptra_trd_zad ) ! z- vertical adv 99 CALL trd_icp( ptrdx, ptrdy, jpicpt_zad, ctype, c cpas )100 ! compute the surface flux condition wn(:,:,1)*tn(:,:,1) 99 CALL trd_icp( ptrdx, ptrdy, jpicpt_zad, ctype, clpas=ccpas ) 100 ! compute the surface flux condition wn(:,:,1)*tn(:,:,1) 101 101 z2dx(:,:) = wn(:,:,1)*tn(:,:,1)/fse3t(:,:,1) 102 102 z2dy(:,:) = wn(:,:,1)*sn(:,:,1)/fse3t(:,:,1)
Note: See TracChangeset
for help on using the changeset viewer.