Changeset 684 for trunk/NEMO/OPA_SRC/DYN
- Timestamp:
- 2007-06-29T18:39:57+02:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DYN
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynldf.F90
r503 r684 39 39 !!--------------------------------------------------------------------------------- 40 40 !! OPA 9.0 , LOCEAN-IPSL (2005) 41 !! $Header $41 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynldf.F90,v 1.4 2007/06/05 11:02:08 opalod Exp $ 42 42 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 43 43 !!---------------------------------------------------------------------- … … 71 71 ! 72 72 CASE ( -1 ) ! esopa: test all possibility with control print 73 ;CALL dyn_ldf_lap ( kt )74 ;CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf0 - Ua: ', mask1=umask, &73 CALL dyn_ldf_lap ( kt ) 74 CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf0 - Ua: ', mask1=umask, & 75 75 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 76 ;CALL dyn_ldf_iso ( kt )77 ;CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf1 - Ua: ', mask1=umask, &76 CALL dyn_ldf_iso ( kt ) 77 CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf1 - Ua: ', mask1=umask, & 78 78 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 79 ;CALL dyn_ldf_bilap ( kt )80 ;CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf2 - Ua: ', mask1=umask, &79 CALL dyn_ldf_bilap ( kt ) 80 CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf2 - Ua: ', mask1=umask, & 81 81 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 82 ;CALL dyn_ldf_bilapg ( kt )83 ;CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf3 - Ua: ', mask1=umask, &82 CALL dyn_ldf_bilapg ( kt ) 83 CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf3 - Ua: ', mask1=umask, & 84 84 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 85 85 END SELECT -
trunk/NEMO/OPA_SRC/DYN/dynzdf.F90
r503 r684 42 42 !!---------------------------------------------------------------------- 43 43 !! OPA 9.0 , LOCEAN-IPSL (2005) 44 !! $Header $44 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynzdf.F90,v 1.3 2007/06/05 11:00:28 opalod Exp $ 45 45 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 46 46 !!---------------------------------------------------------------------- … … 78 78 ! 79 79 CASE ( -1 ) ! esopa: test all possibility with control print 80 ;CALL dyn_zdf_exp ( kt, r2dt )81 ;CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf0 - Ua: ', mask1=umask, &80 CALL dyn_zdf_exp ( kt, r2dt ) 81 CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf0 - Ua: ', mask1=umask, & 82 82 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 83 ;CALL dyn_zdf_imp ( kt, r2dt )84 ;CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf1 - Ua: ', mask1=umask, &83 CALL dyn_zdf_imp ( kt, r2dt ) 84 CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf1 - Ua: ', mask1=umask, & 85 85 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 86 ;CALL dyn_zdf_imp_jki( kt, r2dt )87 ;CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf2 - Ua: ', mask1=umask, &86 CALL dyn_zdf_imp_jki( kt, r2dt ) 87 CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf2 - Ua: ', mask1=umask, & 88 88 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 89 89 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.