Context Navigation

tracreprobus_mod.F90

Timestamp:

Jun 17, 2022, 4:24:49 PM (2 years ago)

Author:

lguez

Message:

Sync latest trunk changes to branch LMDZ-ECRAD.

Location:

LMDZ6/branches/LMDZ-ECRAD

Files:

Property svn:mergeinfo changed

/LMDZ6/branches/Ocean_skin (added)	merged: 3428-3429,3432,3434,3458,3463,3478,3501,3556,3601,3605,3617,3626-3628,3635-3639,3652,3657,3672-3673,3687,3719-3720,3740,3744,3747,3766-3767,3797-3798,3809-3813,4022-4023
/LMDZ6/trunk (added)	merged: 3814-3819,3821-3822,3830-3831,3834-3835,3839,3845,3856-3859,3861-3865,3867-3870,3872-3877,3888,3890,3893-3897,3900-3903,3905-3906,3908-3914,3918-3919,3923-3925,3927,3929-3930,3932-3934,3936-3942,3945-3954,3956,3958,3962,3967,3969-3970,3974-3982,3984,3987-3990,3992,3995-4012,4014-4017,4019,4026-4042,4045-4052,4054-4078,4082-4096,4098-4100,4102-4106,4109-4110,4112-4127,4129-4131,4133,4136,4138-4140,4142-4149,4153-4165,4167-4170

-                      r3666
+                      r4171
     USE dimphy
     USE infotrac_phy
+    USE infotrac_phy, ONLY: nbtr
 #ifdef REPROBUS
     USE CHEM_REP, ONLY : pdt_rep, &  ! pas de temps reprobus
 …
     END DO
+    !
-    DO it=1,nbtr
-       WRITE(solsym(it),'(i2)') it
-    END DO
 #endif
   END SUBROUTINE tracreprobus

Note: See TracChangeset for help on using the changeset viewer.